-- card: 6137 from stack: in.4
-- bmap block id: 9911
-- flags: 4000
-- background id: 2643
-- name: Main


-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=10 top=275 right=332 bottom=99
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=15 top=57 right=274 bottom=501
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 7 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=416 top=202 right=240 bottom=461
-- title width / last selected line: 0
-- icon id / first selected line: 15972 / 15972
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Clear Year To Date
----- HyperTalk script -----
on mouseUp
  Global GivingDate, ShortGivingDate, ExitFlag, DatePhrase


  Answer "Do you wish to ERASE (ALL) of the income sub-account totals as " & "well as the records for income?  This will set all totals to zero!" with "ERASE" or "Ooops - NO"

  if it is "Ooops - NO" then exit mouseUp

  answer "Have you printed out any needed information?  This is your last chance to print any information before it will be erased." with "ERASE" or "Cancel"
  if it is "Cancel" then exit mouseUp

  answer "Clear Year To Date of 'Transactions' or 'Balances'?" with "Transactions" or "Balances" or "Both"
  put it into whichtype
  if whichType is "Both" then put 3 into WhichType
  if whichtype is "Balances" then put 1 into WhichType
  if whichtype is "Transactions" then put 2 into WhichType

  put "Would you like the new recording date to be " into DatePhrase
  put False into ExitFlag
  send "DoDate" to background
  if ExitFlag then exit mouseUp

  go to card 1 of background "Sub Accounts"
  set the name of background button id 21 to GivingDate

  set numberformat to 0.00
  go to last card of this background
  put the id of this card into FlagCardID
  if WhichType is 1 or WhichType is 3 then
    put empty into background field "Sub Total2"
  end if
  if WhichType is 2 or WhichType is 3 then
    put empty into background field "Sub Amount2"
  end if
  go to first card of this background

  repeat until the ID of this card is FlagCardID
    set lockscreen to false
    if WhichType is 1 or WhichType is 3 then
      put empty into background field "Sub Total2"
    end if
    if WhichType is 2 or WhichType is 3 then
      put empty into background field "Sub Amount2"
    end if
    go to next card of this background
  end repeat


  go to card "Main" of background "Income"

  show card field "Please Wait"
  push card
  put "This is a Record of Income Activity From" into Phrase
  put phrase into line 1 of card field "Activity Report"
  put shortGivingDate into Phrase
  put phrase into line 2 of card field "Activity Report"
  set cursor to 4
  set lockscreen to true
  hide card field "Please Wait"

  put empty into card field "Totals"
  put the ID of this card into FlagCardID
  go to next card of background "Income"
  put the ID of this card into ThisID

  repeat forever
    if FlagCardID is ThisID then exit repeat
    put empty into background field "YTD Total"
    go to next card of background "Income"
    put the ID of this card into ThisID
  end repeat

  go to card "Main" of background "Income Record"
  put the ID of this card into FlagCardID
  go to next card of background "Income Record"
  put the ID of this card into ThisID

  repeat forever
    if FlagCardID is ThisID then exit repeat
    doMenu "Delete Card"
    go to card "Main" of background "Income Record"
    go to next card of background "Income Record"
    put the ID of this card into ThisID
  end repeat
  pop card

  set the name of background button ID 139 to ShortGivingDate

  set lockscreen to false

end mouseUp



-- part 8 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=376 top=52 right=198 bottom=496
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 134
-- text size: 18
-- style flags: 0
-- line height: 24
-- part name: Activity Report


-- part 11 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=463 top=287 right=328 bottom=502
-- title width / last selected line: 0
-- icon id / first selected line: 9761 / 9761
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Daily
----- HyperTalk script -----
on mouseUp
  go to card "Map"
end mouseUp


-- part 13 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=297 top=275 right=332 bottom=340
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 


-- part 1 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=34 top=64 right=274 bottom=355
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Totals


-- part 9 (field)
-- low flags: 81
-- high flags: 0004
-- rect: left=65 top=126 right=281 bottom=452
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 135
-- text size: 24
-- style flags: 0
-- line height: 32
-- part name: Please Wait


-- part contents for background part 91
----- text -----
Miscellaneous

-- part contents for card part 8
----- text -----
This is a Record of Income Activity From
1/1/88

-- part contents for card part 9
----- text -----

Please Wait!

UPdating DataBase

-- part contents for background part 112
----- text -----
-3700.00